inherited frmIpi: TfrmIpi
  Left = 252
  Top = 84
  Caption = ''
  ClientHeight = 452
  ClientWidth = 592
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 415
    Width = 592
  end
  inherited Panel2: TPanel
    Width = 592
    Height = 415
    inherited Panel3: TPanel
      Width = 590
      Caption = 'Ipi'
      inherited GroupBox1: TGroupBox
        Left = 511
      end
    end
    inherited Panel4: TPanel
      Width = 590
      Height = 373
      object Label1: TLabel [0]
        Left = 23
        Top = 16
        Width = 33
        Height = 14
        Caption = 'C'#243'digo'
        FocusControl = EdtIpiCodigo
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel [1]
        Left = 23
        Top = 56
        Width = 49
        Height = 14
        Caption = 'Descri'#231#227'o'
        FocusControl = EdtIpiDescri
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel [2]
        Left = 325
        Top = 56
        Width = 52
        Height = 14
        Caption = 'Al'#237'quota %'
        FocusControl = EdtIpiAlqIcm
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      inherited DBGrid1: TDBGrid
        Top = 156
        Width = 582
        TabOrder = 4
      end
      inherited SbHints: TStatusBar
        Top = 350
        Width = 582
      end
      object EdtIpiCodigo: TDBEdit
        Left = 23
        Top = 30
        Width = 44
        Height = 20
        Hint = ' C'#243'digo do IPI'
        CharCase = ecUpperCase
        DataField = 'IPI_CODIGO'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnExit = EdtIpiCodigoExit
      end
      object EdtIpiDescri: TDBEdit
        Left = 23
        Top = 70
        Width = 297
        Height = 20
        Hint = 'Descri'#231#227'o de IPI'
        CharCase = ecUpperCase
        DataField = 'IPI_DESCRI'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnExit = EdtIpiDescriExit
      end
      object EdtIpiAlqIcm: TDBEdit
        Left = 325
        Top = 70
        Width = 73
        Height = 20
        Hint = ' Valor da Al'#237'quota '
        DataField = 'IPI_ALQIPI'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Verdana'
        Font.Style = []
        MaxLength = 6
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_Ipi
    Left = 16
    Top = 8
  end
  object SQLC_Ipi: TSQLClientDataSet
    CommandText = 'select * from IPI where ipi_codigo=:pcodigo;'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pcodigo'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 69
    Top = 6
    object SQLC_IpiIPI_CODIGO: TStringField
      DisplayLabel = 'CODIGO'
      FieldName = 'IPI_CODIGO'
      Required = True
      Size = 2
    end
    object SQLC_IpiIPI_DESCRI: TStringField
      DisplayLabel = 'DESCRI'#199#195'O'
      FieldName = 'IPI_DESCRI'
      Required = True
      Size = 35
    end
    object SQLC_IpiIPI_ALQIPI: TFMTBCDField
      DisplayLabel = 'IPI'
      FieldName = 'IPI_ALQIPI'
      Precision = 15
      Size = 2
    end
  end
end
